home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / database / do1beta / filter.do < prev    next >
Text File  |  1991-08-23  |  425b  |  14 lines
  1. /*
  2.     set a filter for the database and try it
  3.     this example prints out a Collection of all values for the
  4.     "lname" field between record numbers 5 and 15 inclusively
  5.  
  6.     NOTE - you must run the "CRDEMO.DO" program to create the
  7.         patient database before running this program
  8. */
  9. db = new(Dbffile,"patient");
  10. setFilter(db,#(recno(db) > 5L) & (recno(db) < 15L));
  11. ? asCollection(db,#trim(lname));
  12. close(db);
  13. ? memory();
  14.